home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / fractal.arc / FRACTAL6.BAS < prev   
Encoding:
BASIC Source File  |  1985-10-26  |  1.3 KB  |  40 lines
  1. 10 '-----------------------------------
  2. 20 ' FRACTAL CURVE                  SAM
  3. 30 '-----------------------------------
  4. 40  SCREEN 1,1:KEY OFF:CLS
  5. 50  LOCATE 12,17:PRINT "Wait..."
  6. 60 '----- DIMENSIONS ------------------
  7. 70  DIM U$(5),D$(5),R$(5),L$(5)
  8. 80 '----- PRIMITIVE MOTIONS ----------
  9. 90  U$(0)="U2":D$(0)="D2"
  10. 100 R$(0)="R2":L$(0)="L2"
  11. 110 '----- CREATE CURVE --------------
  12. 120 FOR K=1 TO 4
  13. 130 MU$="XU$("+STR$(K-1)+");"
  14. 140 MD$="XD$("+STR$(K-1)+");"
  15. 150 MR$="XR$("+STR$(K-1)+");"
  16. 160 ML$="XL$("+STR$(K-1)+");"
  17. 170 '----- LEVEL CHANGERS -------------
  18. 180 MU2$=MU$+MU$
  19. 190 MD2$=MD$+MD$
  20. 200 MR2$=MR$+MR$
  21. 210 ML2$=ML$+ML$
  22. 220 U$(K)=MU$+ML$+MU$+MR2$+MU$+ML$+MU$
  23. 230 D$(K)=MD$+MR$+MD$+ML2$+MD$+MR$+MD$
  24. 240 R$(K)=MR$+MU$+MR$+MD2$+MR$+MU$+MR$
  25. 250 L$(K)=ML$+MD$+ML$+MU2$+ML$+MD$+ML$
  26. 260 NEXT K
  27. 270 '----- DRAW THE CURVE -------------
  28. 280 FOR K=1 TO 4:CLS
  29. 290 SIDE=4^K:SCALE=500/SIDE
  30. 300 LOCATE 25,1:PRINT "LEVEL =";K
  31. 310 DRAW "BM20,100;S=SCALE;"
  32. 320 DRAW R$(K)
  33. 330 '----- CONTINUE? ------------------
  34. 340 LOCATE 1,1
  35. 350 PRINT "ENTER to continue";
  36. 360 I$=INKEY$:IF I$="" THEN 340
  37. 370 IF I$=CHR$(13) THEN NEXT K
  38. 380 END
  39. 390 '----- END PROGRAM ----------------
  40.